home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jcompose.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  2.4 KB  |  84 lines
  1. # jcompose.tcl - support for the Compose (Multi_key) key
  2. # 
  3. # Copyright 1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6. ######################################################################
  7.  
  8. # this is used by jtextkeys.tcl and jentrykeys.tcl
  9. # TO DO: generalise to other character sets
  10. # merge entry and text procs - check class of window!
  11.  
  12. ######################################################################
  13. # j:tc:start_sequence W K A -
  14. #   begin a compose sequence.  bring in the compose key table if 
  15. #   necessary.
  16. ######################################################################
  17.  
  18. proc j:tc:start_sequence { W K A } {
  19.   global j_cmp
  20.   
  21.   set j_cmp(first,$W) $A
  22.   
  23.   if {![info exists j_cmp(iso8859-1)]} {
  24.     j:compose_init:iso8859-1
  25.   }
  26. }
  27.  
  28. ######################################################################
  29. # j:tc:finish_sequence W K A -
  30. #   finish a compose sequence.
  31. ######################################################################
  32.  
  33. proc j:tc:finish_sequence { W K A } {
  34.   global j_cmp
  35.   
  36.   if {![info exists j_cmp(iso8859-1)] ||
  37.       ![info exists j_cmp(first,$W)]} {
  38.     error "j:tc:finish_sequence called before j:tc:start_sequence"
  39.   }
  40.   
  41.   set pair [join [lsort -ascii [list $j_cmp(first,$W) $A]] {}]
  42.   catch {
  43.     j:tkb:process_key \
  44.       $W {} $j_cmp(iso8859-1,keysym,$pair) $j_cmp(iso8859-1,glyph,$pair)
  45.   }
  46. }
  47.  
  48. ######################################################################
  49. # j:ec:start_sequence W K A -
  50. #   begin a compose sequence.  bring in the compose key table if 
  51. #   necessary.
  52. ######################################################################
  53.  
  54. proc j:ec:start_sequence { W K A } {
  55.   global j_cmp
  56.   
  57.   set j_cmp(first,$W) $A
  58.   
  59.   if {![info exists j_cmp(iso8859-1)]} {
  60.     j:compose_init:iso8859-1
  61.   }
  62. }
  63.  
  64. ######################################################################
  65. # j:ec:finish_sequence W K A -
  66. #   finish a compose sequence.
  67. ######################################################################
  68.  
  69. proc j:ec:finish_sequence { W K A } {
  70.   global j_cmp
  71.   
  72.   if {![info exists j_cmp(iso8859-1)] ||
  73.       ![info exists j_cmp(first,$W)]} {
  74.     error "j:ec:finish_sequence called before j:ec:start_sequence"
  75.   }
  76.   
  77.   set pair [join [lsort -ascii [list $j_cmp(first,$W) $A]] {}]
  78.   catch {
  79.     j:ekb:process_key \
  80.       $W {} $j_cmp(iso8859-1,keysym,$pair) $j_cmp(iso8859-1,glyph,$pair)
  81.   }
  82. }
  83.  
  84.